home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / get_fi_1 / frame.frm < prev    next >
Text File  |  1999-07-04  |  2KB  |  78 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  4. Begin VB.MDIForm frmFrame 
  5.    BackColor       =   &H8000000C&
  6.    Caption         =   "Project1"
  7.    ClientHeight    =   4065
  8.    ClientLeft      =   165
  9.    ClientTop       =   450
  10.    ClientWidth     =   7155
  11.    LinkTopic       =   "MDIForm1"
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin MSComctlLib.StatusBar sbStatusBar 
  14.       Align           =   2  'Align Bottom
  15.       Height          =   270
  16.       Left            =   0
  17.       TabIndex        =   0
  18.       Top             =   3795
  19.       Width           =   7155
  20.       _ExtentX        =   12621
  21.       _ExtentY        =   476
  22.       _Version        =   393216
  23.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  24.          NumPanels       =   3
  25.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  26.             AutoSize        =   1
  27.             Object.Width           =   6985
  28.             Text            =   "Status"
  29.             TextSave        =   "Status"
  30.          EndProperty
  31.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  32.             Style           =   6
  33.             AutoSize        =   2
  34.             TextSave        =   "7/4/99"
  35.          EndProperty
  36.          BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  37.             Style           =   5
  38.             AutoSize        =   2
  39.             TextSave        =   "10:53 PM"
  40.          EndProperty
  41.       EndProperty
  42.    End
  43.    Begin MSComDlg.CommonDialog CommonDialog1 
  44.       Left            =   0
  45.       Top             =   0
  46.       _ExtentX        =   847
  47.       _ExtentY        =   847
  48.       _Version        =   393216
  49.       CancelError     =   -1  'True
  50.       DialogTitle     =   "HCL Applications"
  51.       FromPage        =   1
  52.       Max             =   1000
  53.       Min             =   1
  54.       ToPage          =   1
  55.    End
  56. End
  57. Attribute VB_Name = "frmFrame"
  58. Attribute VB_GlobalNameSpace = False
  59. Attribute VB_Creatable = False
  60. Attribute VB_PredeclaredId = True
  61. Attribute VB_Exposed = False
  62. ' Frame.frm
  63. '
  64. ' By Herman Liu
  65.  
  66. Option Explicit
  67.  
  68.  
  69. Private Sub MDIForm_Load()
  70.     Me.Move 0, 0, Screen.Width, Screen.Height
  71.     
  72.     Dim frmD As frmDocMaster
  73.     Set frmD = New frmDocMaster
  74.     frmD.Show
  75. End Sub
  76.  
  77.  
  78.